home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE2 / PD / CAMPINS.ZIP / Landscapes < prev    next >
Text File  |  2002-05-26  |  961b  |  33 lines
  1. If "<ChangeFSI$Dir>" = "" Then Error Please open a Filer directory containing !ChangeFSI V1.15 (or better) then try again.
  2.  
  3. | This turns on or off the Hourglass when ChangeFSI is converting.
  4. | If you don't want it on Make the line below 'Off'
  5. Set ChangeFSI$Hourglass On
  6.  
  7. WimpSlot -min 2000K
  8. WimpSlot -next 2000K
  9. Set campin$dir <obey$dir>.resources
  10. Set campin$path <campin$dir>.
  11. DIR <campin$dir>
  12.  
  13. | 200+ pictures of beautiful landscapes.
  14. IF "<num>" >= 0 THEN SETEVAL num <num> + 1
  15. IF "<num>" = 202 THEN SET num 1
  16.  
  17. IF LEN "<num>" < 4 THEN SETEVAL num "0" + "<num>"
  18. IF LEN "<num>" < 4 THEN SETEVAL num "0" + "<num>"
  19. IF LEN "<num>" < 4 THEN SETEVAL num "0" + "<num>"
  20.  
  21. |set num "0200"
  22.  
  23.  
  24. SetEVAL surl "http://www.quantumsoft.co.uk/files/clipart/jpegs/Landscape_" + "<num>.jpg"
  25. DO campin:curl --env <surl> -o image -s
  26. campin:errorcheck
  27.  
  28. campin:camchk campin:Image
  29.  
  30. campin:CFSI campin:image campin:sprite <col> <scale> -nomode { > null: }
  31.  
  32. Backdrop <bkd> campin:sprite
  33.